Type employee    fname as string    lname as string    hired as date    title as stringend type    Sub Main()	dim emp1 as employee, emp2 as employee	dim i as integer	emp1.fname = "Jose L."	emp1.lname = "Cuevas"	emp1.title = "Programmer"	emp1.hired= new date	i = emp1.hired.parsedate("12/12/2010")	msgbox("Employee: " & emp1.fname & " " & emp1.lname & " was hired on " & emp1.hired.longdate & ".")	msgbox(emp1.title)	msgbox("emp1: Jose L. Cuevas=" & emp1.fname & " " & emp1.lname)	emp2 = copy(emp1)	msgbox(emp2.title)	msgbox("emp2: Jose L. Cuevas=" & emp2.fname & " " & emp2.lname)	emp2.fname = "Joe"	msgbox("emp1.fname<>emp2.fname: " & emp1.fname & "<>" & emp2.fname)end sub